home *** CD-ROM | disk | FTP | other *** search
/ Telecommunications & Multimedia Encyclopedia / Jones Telecommunications and Multimedia Encyclopedia (Jones)(1996).ISO / mac / ENCYCLOP / EXIT.DIR / 00001_Script_1 next >
Text File  |  1996-01-10  |  1KB  |  68 lines
  1. -----------------------------
  2. -- startMovie handler
  3.  
  4. on startMovie
  5.   Init
  6. end startMovie
  7.  
  8. -----------------------------
  9. -- stopMovie handler
  10.  
  11. on stopMovie
  12.   global gExitWindow
  13.   
  14.   if objectP (gExitWindow) then
  15.     forget gExitWindow
  16.   end if
  17.   
  18. end stopMovie
  19.  
  20. --------------------------
  21. -- Init
  22.  
  23. on Init
  24.   global gButtonClicked,  gExitWindow
  25.   
  26.   set gButtonClicked = 0
  27.   
  28. end Init
  29.  
  30. ----------------------------
  31. -- ButtonHandler
  32.  
  33. on ButtonHandler iSprite, iCastNum
  34.   global gButtonClicked
  35.   
  36.   set gButtonClicked = 0
  37.   
  38.   repeat while ( rollover (iSprite) )
  39.     if the mouseDown then
  40.       set tmpFlag = 1
  41.       set the castnum of sprite iSprite to iCastNum + 2
  42.       updateStage
  43.       repeat while the mouseDown
  44.         if rollover (iSprite) then
  45.           --do nothing  
  46.         else
  47.           set tmpFlag = 0
  48.           exit repeat -- checks to see if mouse is off the coordinates
  49.         end if
  50.       end repeat
  51.     else
  52.       set the castnum of sprite isprite to icastnum + 1
  53.       updatestage
  54.     end if
  55.     
  56.     updatestage
  57.     if tmpFlag = 1 then
  58.       set gButtonClicked = 1
  59.       exit repeat
  60.     end if
  61.   end repeat
  62.   
  63.   set the castnum of sprite iSprite to iCastNum
  64.   updatestage
  65.   
  66. end ButtonHandler
  67.  
  68.